   1 .
   2 .
   2 .
   4 .
   5 .AMAZED IN SPACE
   6 .BY AQUILA
   7 .REVISED BY
   8 .R M HOUSER
  10 J=0
  20 NT=0;clear ;BC=0;FC=126
 100 input "DEGREE OF DIFFICULTY?     0=EASY  1=MEDIUM  2=HARD "R;clear 
 110 print "PATH SIZE CAN BE FROM    ",#3,5+R," to 20"
 120 input "PATH SIZE?"L;clear 
 130 print "HEIGHT CAN BE FROM 2 to ",36div L
 140 input "HEIGHT?"H;@(2)=Lmul H;clear 
 150 if @(2)>36goto 130
 160 print "WIDTH CAN BE FROM 2 to ",74div L
 170 input "WIDTH?"W;@(1)=Lmul W;clear 
 180 if @(1)>74goto 160
 200 clear ;for A=1to 100
 210 X=0;Y=0
 220 box rnd (160)-80,rnd (88)-44,1,1,1;next A
 300 box 0,0,2mul @(1)+8,2mul @(2)+8,2
 310 line -@(1),@(2),4
 320 line @(1),@(2),1
 330 line @(1),-@(2)+L,1
 340 line @(1),-@(2),4
 350 line -@(1),-@(2),1
 360 line -@(1),@(2)-L,1
 370 line -@(1),@(2),4
 380 line X,Y,4
 400 P=(Wmul Hmul (100div L))
 410 for Q=1to P
 420 A=(rnd (3)-2)mul L
 430 B=(rnd (3)-2)mul L;X=X+A
 440 if X<-@(1) X=@(1)
 450 if X>@(1) X=-@(1)
 460 if PX(X,Y)=1 line X,Y,4
 470 line X,Y,1;Y=Y+B
 480 if Y<-@(2) Y=@(2)
 490 if Y>@(2) Y=-@(2)
 510 if PX(X,Y)=1line X,Y,4
 520 line X,Y,1;P=P-1
 530 CY=40;print "COUNTDOWN=",#2,P
 540 next Q
 550 CY=40;print "             "
 700 C=0;T=0
 710 X=-@(1)-2
 720 Y=@(2)-(Ldiv 2);M=0;N=0
 740 &(23)=255;BC=0
 750 D=JX(1);E=JY(1)
 760 M=M+D;N=N+E
 770 G=3
 780 if M>G M=G
 790 if M<-G M=-G
 800 if N>G N=G
 810 if N<-G N=-G
 820 X=X+M;Y=Y+N
 830 if D#0&(21)=255
 840 if E#0&(21)=255
 850 if D=0if E=0&(21)=0
 860 T=T+1;CY=44;print #4,T
 870 box X,Y,3,3,3
 880 box X-D,Y-E,1,1,3
 890 box X-D,Y-E,1,1,3
 910 box X,Y,3,3,3
 920 if PX(X,Y)=1goto 1100
 930 if PX(X+R,Y+R)=1goto 1100
 940 if PX(X+R,Y-R)=1goto 1100
 950 if PX(X-R,Y+R)=1goto 1100
 960 if PX(X-R,Y-R)=1goto 1100
 970 if X>@(1)if Y<-@(2)+L&(21)=0;goto 1300
 980 if X<-@(1)if Y<@(2)-L&(21)=0;goto 1200
 990 if X<-@(1) if Y>@(2) &(21)=0
1000 goto 750
1100 &(21)=0;C=C+1
1110 CX=-75;CY=44;print C," CRASH!"
1120 for A=1to 25;BC=80;NT=5
1140 MU="4";next A
1160 NT=0;goto 710
1200 NT=5;CY=44;print "OUTER LIMITS--OFF LIMITS";NT=0
1210 CY=44;print "                         "
1220 goto 710
1300 NT=3;clear 
1320 print "FAR OUT!,YOU DID IT! ;ONLY",#3,C," CRASH(ES)!"
1330 print "TIME=",#5,T
1340 S=((R+1)mul Hmul W)mul 72div ((Tmul L)div 10)mul 10
1350 print "SCORE=",#5,S
1360 if S>J J=S
1370 print "TODAY'S HIGH SCORE=",#5,J
1400 print "AGAIN?"
1410 NT=0;input "1=YES  2=SAME AS LAST GAME"Z
1420 if Z=1 goto 20
1430 goto 200
:return ;run 
